home *** CD-ROM | disk | FTP | other *** search
/ Megahits 7 / Megahits 7 (1995)(GTI - Rhein-Main-Soft)(DE)[!].iso / franz / franz_101_150 / franz_130.dms / franz_130.adf / Cassettendruck / CASSETTENDRUCK.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1991-06-22  |  16KB  |  495 lines
  1. RESERVE 50000
  2. MAT XCPY 1,0,0,640,256,3,&H8000
  3. TOPW #1,""
  4. @einstellen
  5. @grundfarben
  6. WORD{10,0,0,640,256,0,&H1000
  7. TITLEW #10,wer$
  8. ON ERROR GOSUB system
  9. ON BREAK CONT
  10. @infotext
  11. @bild
  12. @hauptmenu
  13. CLOSEW 10
  14. MAT PRINT 1
  15. SYSTEM
  16. END
  17. > PROCEDURE einstellen
  18.   DEFSTR "aut,ko,vor,nach,tit,num,eingabe,cop,user,loe,ende,abfr,lang,"
  19.   DEFSTR "wer,kop1,kop2,zwi1,zwi2,zwi3,"
  20.   DEFBYT "k,zaehler,textlaenge,textzeile,"
  21.   DEFWRD "x,y,"
  22.   zaehler|=0
  23.   ko$="     "+CHR$(169)+"  "
  24.   kop1$=CHR$(65)+CHR$(99)+CHR$(104)+CHR$(105)+CHR$(109)
  25.   kop2$=CHR$(76)+CHR$(101)+CHR$(110)+CHR$(110)+CHR$(97)+CHR$(114)+CHR$(116)+CHR$(122)
  26.   cop$=kop1$+" "+kop2$
  27.   aut$=ko$+cop$
  28.   loe$="WOLLEN SIE WIRKLICH DAS LABEL LÖSCHEN ??"
  29.   abfr$="ALLES BEREIT ZUM AUSDRUCK ????"
  30.   ende$="WOLLEN SIE WIRKLICH DAS PROGRAMM BEENDEN ??"
  31.   lang$="LÄNGE ???"
  32.   vor$=kop1$
  33.   nach$=kop2$
  34.   user$=CHR$(70)+" "+CHR$(82)+" "+CHR$(65)+" "+CHR$(78)+" "+CHR$(90)
  35.   wer$="     D E M O  --  V E R S I O N  --  V 1.3   mit   M U S T E R D R U C K"
  36. RETURN
  37. > PROCEDURE grundfarben
  38.   SETCOLOR 0,10,10,10
  39.   SETCOLOR 1,0,0,0
  40.   SETCOLOR 2,15,0,0
  41.   SETCOLOR 4,0,15,0
  42.   SETCOLOR 5,0,0,15
  43.   SETCOLOR 6,0,15,15
  44.   SETCOLOR 7,15,15,15
  45. RETURN
  46. > PROCEDURE drucken
  47.   HARDCOPY{ADDRIN10)+50},{ADDRIN(1)+48},&H8000,45,0,551,256,485,285,&X1110000000
  48.   LPRINT
  49.   CLOSE
  50. RETURN
  51. > PROCEDURE infotext
  52.   WORD{8,100,30,450,220,0,&H1000
  53.   TITLEW #8," Inhaltverzeichnis   auf   Musik - Cassetten Hüllen !"
  54.   GRAPHMODE 0
  55.   COLOR 1
  56.   TEXT 10,20," Geschrieben von :"
  57.   TEXT 10,28," ~~~~~~~~~~~~~~~~~"
  58.   COLOR 5
  59.   TEXT 60,20,"                   "+cop$
  60.   TEXT 60,30,"                Heinsberger Straße 68"
  61.   TEXT 60,40,"                 5130  Geilenkirchen"
  62.   TEXT 60,50,"               Tel.: 0 24 51 - 6 44 04"
  63.   COLOR 1
  64.   TEXT 10,65,"  Ein Programm zum Erstellen von "+CHR$(34)+"Cassetten - Hüllen"+CHR$(34)+"."
  65.   COLOR 5
  66.   TEXT 12,79,"                           S H A R E W A R E"
  67.   TEXT 10,80,"     Dieses Programm ist                       !!"
  68.   COLOR 7
  69.   TEXT 10,80,"                           S H A R E W A R E"
  70.   COLOR 1
  71.   TEXT 10,100,"     Diese  Demo - Version V1.3  darf NUR auf der "
  72.   COLOR 2
  73.   TEXT 12,115,"     P D - S E R I E     "+user$
  74.   COLOR 7
  75.   TEXT 10,116,"     P D - S E R I E     "+user$
  76.   COLOR 1
  77.   TEXT 10,115,"                                      erscheinen!"
  78.   COLOR 5
  79.   TEXT 10,130," Wenn SIE das lauffähige Programm haben möchten, bitte"
  80.   TEXT 10,140," senden SIE mir einen an SIE selbst adressierten, aus-"
  81.   TEXT 10,150," reichend frankierten, gepolsterten Rückumschlag, eine"
  82.   TEXT 10,160," 3,5 Zoll Leerdiskette (eventuell PD Diskette) und die"
  83.   TEXT 10,170," Shareware-Gebühr in Höhe von 10,- DM. Das Geld soll"
  84.   TEXT 10,180," für meine Unkosten (Interpreter,Farbband,Papier usw.)"
  85.   TEXT 10,190," sein."
  86.   TEXT 10,200," Ich bedanke mich jetzt schon bei IHNEN."
  87.   COLOR 1
  88.   TEXT 10,215,"                          Bis bald... "+CHR$(169)+" "+cop$
  89.   DO
  90.     EXIT IF MOUSEK=1
  91.   LOOP
  92.   CLOSEW 8
  93. RETURN
  94. > PROCEDURE bild
  95.   CLEARW 10
  96.   @bildneu
  97.   COLOR 1
  98.   PBOX 7,7,38,97
  99.   PBOX 7,103,38,193
  100.   PBOX 7,199,38,253
  101.   COLOR 6
  102.   TEXT 10,19," L "
  103.   TEXT 10,31," Ö "
  104.   TEXT 10,43," S "
  105.   TEXT 10,55," C "
  106.   TEXT 10,67," H "
  107.   TEXT 10,79," E "
  108.   TEXT 10,91," N "
  109.   TEXT 10,115," D "
  110.   TEXT 10,127," R "
  111.   TEXT 10,139," U "
  112.   TEXT 10,151," C "
  113.   TEXT 10,163," K "
  114.   TEXT 10,175," E "
  115.   TEXT 10,187," N "
  116.   TEXT 10,211," E "
  117.   TEXT 10,223," N "
  118.   TEXT 10,235," D "
  119.   TEXT 10,247," E "
  120.   COLOR 1
  121.   DELAY 0.2
  122. RETURN
  123. > PROCEDURE system
  124.   CLOSEW 10
  125.   MAT PRINT 1
  126.   SYSTEM
  127. RETURN
  128. > PROCEDURE hauptmenu
  129.   DO
  130.     MOUSE x&,y&,k|
  131.     DEFMOUSE 3
  132.     IF x&>72 AND y&>3 AND x&<313 AND y&<17 AND k|=1
  133.       COLOR 7
  134.       PBOX 72,3,313,17
  135.       @titel
  136.       TEXT 79,14,tit$
  137.     ELSE IF x&>344 AND y&>3 AND x&<590 AND y&<17 AND k|=1
  138.       COLOR 7
  139.       PBOX 344,3,590,17
  140.       @titel
  141.       TEXT 351,14,tit$
  142.     ELSE IF x&>198 AND y&>186 AND x&<437 AND y&<199 AND k|=1
  143.       COLOR 7
  144.       PBOX 198,184,437,197
  145.       @titel
  146.       textlaenge|=LEN(tit$)
  147.       PRINT CHR$(155);"0;31;47";CHR$(109);
  148.       PRINT AT(26+14-(textlaenge|/2),23);tit$;
  149.       PRINT CHR$(155);"0;31;47";CHR$(109);
  150.     ELSE IF x&>50 AND y&>21 AND x&<313 AND y&<32 AND k|=1
  151.       COLOR 7
  152.       PBOX 50,21,313,32
  153.       @eingabe
  154.       TEXT 60,30,eingabe$
  155.     ELSE IF x&>50 AND y&>34 AND x&<313 AND y&<45 AND k|=1
  156.       COLOR 7
  157.       PBOX 50,34,313,45
  158.       @eingabe
  159.       TEXT 60,43,eingabe$
  160.     ELSE IF x&>50 AND y&>47 AND x&<313 AND y&<58 AND k|=1
  161.       COLOR 7
  162.       PBOX 50,47,313,58
  163.       @eingabe
  164.       TEXT 60,56,eingabe$
  165.     ELSE IF x&>50 AND y&>60 AND x&<313 AND y&<71 AND k|=1
  166.       COLOR 7
  167.       PBOX 50,60,313,71
  168.       @eingabe
  169.       TEXT 60,69,eingabe$
  170.     ELSE IF x&>50 AND y&>73 AND x&<313 AND y&<84 AND k|=1
  171.       COLOR 7
  172.       PBOX 50,73,313,84
  173.       @eingabe
  174.       TEXT 60,82,eingabe$
  175.     ELSE IF x&>50 AND y&>86 AND x&<313 AND y&<97 AND k|=1
  176.       COLOR 7
  177.       PBOX 50,86,313,97
  178.       @eingabe
  179.       TEXT 60,95,eingabe$
  180.     ELSE IF x&>50 AND y&>99 AND x&<313 AND y&<110 AND k|=1
  181.       COLOR 7
  182.       PBOX 50,99,313,110
  183.       @eingabe
  184.       TEXT 60,108,eingabe$
  185.     ELSE IF x&>50 AND y&>112 AND x&<313 AND y&<123 AND k|=1
  186.       COLOR 7
  187.       PBOX 50,112,313,123
  188.       @eingabe
  189.       TEXT 60,121,eingabe$
  190.     ELSE IF x&>50 AND y&>125 AND x&<313 AND y&<136 AND k|=1
  191.       COLOR 7
  192.       PBOX 50,125,313,136
  193.       @eingabe
  194.       TEXT 60,134,eingabe$
  195.     ELSE IF x&>50 AND y&>138 AND x&<313 AND y&<149 AND k|=1
  196.       COLOR 7
  197.       PBOX 50,138,313,149
  198.       @eingabe
  199.       TEXT 60,147,eingabe$
  200.     ELSE IF x&>50 AND y&>151 AND x&<313 AND y&<162 AND k|=1
  201.       COLOR 7
  202.       PBOX 50,151,313,162
  203.       @eingabe
  204.       TEXT 60,160,eingabe$
  205.     ELSE IF x&>50 AND y&>164 AND x&<313 AND y&<175 AND k|=1
  206.       COLOR 7
  207.       PBOX 50,164,313,175
  208.       @eingabe
  209.       TEXT 60,173,eingabe$
  210.     ELSE IF x&>50 AND y&>215 AND x&<313 AND y&<226 AND k|=1
  211.       COLOR 7
  212.       PBOX 50,215,313,226
  213.       @eingabe
  214.       TEXT 60,224,eingabe$
  215.     ELSE IF x&>50 AND y&>228 AND x&<313 AND y&<239 AND k|=1
  216.       COLOR 7
  217.       PBOX 50,228,313,239
  218.       @eingabe
  219.       TEXT 60,237,eingabe$
  220.     ELSE IF x&>50 AND y&>241 AND x&<313 AND y&<252 AND k|=1
  221.       COLOR 7
  222.       PBOX 50,241,313,252
  223.       @eingabe
  224.       TEXT 60,250,eingabe$
  225.     ELSE IF x&>56 AND y&>186 AND x&<114 AND y&<199 AND k|=1
  226.       @laenge
  227.     ELSE IF x&>526 AND y&>186 AND x&<584 AND y&<199 AND k|=1
  228.       @nummer
  229.     ELSE IF x&>321 AND y&>21 AND x&<590 AND y&<32 AND k|=1
  230.       COLOR 7
  231.       PBOX 321,21,590,32
  232.       @eingabe
  233.       TEXT 335,30,eingabe$
  234.     ELSE IF x&>321 AND y&>34 AND x&<590 AND y&<45 AND k|=1
  235.       COLOR 7
  236.       PBOX 321,34,590,45
  237.       @eingabe
  238.       TEXT 335,43,eingabe$
  239.     ELSE IF x&>321 AND y&>47 AND x&<590 AND y&<58 AND k|=1
  240.       COLOR 7
  241.       PBOX 321,47,590,58
  242.       @eingabe
  243.       TEXT 335,56,eingabe$
  244.     ELSE IF x&>321 AND y&>60 AND x&<590 AND y&<71 AND k|=1
  245.       COLOR 7
  246.       PBOX 321,60,590,71
  247.       @eingabe
  248.       TEXT 335,69,eingabe$
  249.     ELSE IF x&>321 AND y&>73 AND x&<590 AND y&<84 AND k|=1
  250.       COLOR 7
  251.       PBOX 321,73,590,84
  252.       @eingabe
  253.       TEXT 335,82,eingabe$
  254.     ELSE IF x&>321 AND y&>86 AND x&<590 AND y&<97 AND k|=1
  255.       COLOR 7
  256.       PBOX 321,86,590,97
  257.       @eingabe
  258.       TEXT 335,95,eingabe$
  259.     ELSE IF x&>321 AND y&>99 AND x&<590 AND y&<110 AND k|=1
  260.       COLOR 7
  261.       PBOX 321,99,590,110
  262.       @eingabe
  263.       TEXT 335,108,eingabe$
  264.     ELSE IF x&>321 AND y&>112 AND x&<590 AND y&<123 AND k|=1
  265.       COLOR 7
  266.       PBOX 321,112,590,123
  267.       @eingabe
  268.       TEXT 335,121,eingabe$
  269.     ELSE IF x&>321 AND y&>125 AND x&<590 AND y&<136 AND k|=1
  270.       COLOR 7
  271.       PBOX 321,125,590,136
  272.       @eingabe
  273.       TEXT 335,134,eingabe$
  274.     ELSE IF x&>321 AND y&>138 AND x&<590 AND y&<149 AND k|=1
  275.       COLOR 7
  276.       PBOX 321,138,590,149
  277.       @eingabe
  278.       TEXT 335,147,eingabe$
  279.     ELSE IF x&>321 AND y&>151 AND x&<590 AND y&<162 AND k|=1
  280.       COLOR 7
  281.       PBOX 321,151,590,162
  282.       @eingabe
  283.       TEXT 335,160,eingabe$
  284.     ELSE IF x&>321 AND y&>164 AND x&<590 AND y&<175 AND k|=1
  285.       COLOR 7
  286.       PBOX 321,164,590,175
  287.       @eingabe
  288.       TEXT 335,173,eingabe$
  289.     ELSE IF x&>321 AND y&>215 AND x&<590 AND y&<226 AND k|=1
  290.       COLOR 7
  291.       PBOX 321,215,590,226
  292.       @eingabe
  293.       TEXT 335,224,eingabe$
  294.     ELSE IF x&>321 AND y&>228 AND x&<590 AND y&<239 AND k|=1
  295.       COLOR 7
  296.       PBOX 321,228,590,239
  297.       @eingabe
  298.       TEXT 335,237,eingabe$
  299.     ELSE IF x&>321 AND y&>241 AND x&<590 AND y&<252 AND k|=1
  300.       COLOR 7
  301.       PBOX 321,241,590,252
  302.       @eingabe
  303.       TEXT 335,250,eingabe$
  304.     ELSE IF x&>10 AND y&>9 AND x&<35 AND y&<95 AND k|=1
  305.       @loeschen
  306.     ELSE IF x&>10 AND y&>105 AND x&<35 AND y&<191 AND k|=1
  307.       @abfrage
  308.     ELSE IF x&>10 AND y&>201 AND x&<35 AND y&<251 AND k|=1
  309.       @ende
  310.     ENDIF
  311.   LOOP
  312. RETURN
  313. > PROCEDURE titel
  314.   CLR tit$
  315.   PRINT CHR$(155);"2;35;47";CHR$(109);
  316.   PRINT AT(8,25);" Bitte Eingabe machen -> ";
  317.   FORM INPUT 28,tit$
  318.   @weg
  319. RETURN
  320. > PROCEDURE eingabe
  321.   PRINT CHR$(155);"2;35;47";CHR$(109);
  322.   PRINT AT(8,25);" Bitte Eingabe machen -> ";
  323.   eingabe$=""
  324.   FORM INPUT 30,eingabe$
  325.   @weg
  326. RETURN
  327. > PROCEDURE abfrage
  328.   zaehler|=0
  329.   COLOR 6
  330.   TEXT 80,210,abfr$
  331.   COLOR 5
  332.   TEXT 79,211,abfr$
  333.   @ja_nein
  334.   DO
  335.     MOUSE x&,y&,k|
  336.     IF x&>421 AND y&>202 AND x&<489 AND y&<211 AND k|=1
  337.       @weg
  338.       DEFMOUSE 2
  339.       @wie
  340.     ELSE IF x&>501 AND y&>202 AND x&<569 AND y&<211 AND k|=1
  341.       @weg
  342.     ENDIF
  343.     EXIT IF zaehler|=1
  344.   LOOP
  345. RETURN
  346. > PROCEDURE ende
  347.   zaehler|=0
  348.   COLOR 6
  349.   TEXT 60,210,ende$
  350.   COLOR 5
  351.   TEXT 59,211,ende$
  352.   @ja_nein
  353.   DO
  354.     MOUSE x&,y&,k|
  355.     IF x&>421 AND y&>202 AND x&<489 AND y&<211 AND k|=1
  356.       @system
  357.     ELSE IF x&>501 AND y&>202 AND x&<570 AND y&<211 AND k|=1
  358.       @weg
  359.     ENDIF
  360.     EXIT IF zaehler|=1
  361.   LOOP
  362.   COLOR 1
  363.   DELAY 0.1
  364. RETURN
  365. > PROCEDURE nummer
  366.   COLOR 7
  367.   PBOX 521,184,584,197
  368.   PRINT CHR$(155);"2;35;47";CHR$(109);
  369.   PRINT AT(8,25);" Bitte Eingabe machen -> ";
  370.   num$="   "
  371.   FORM INPUT 3,num$
  372.   @weg
  373.   COLOR 1
  374.   TEXT 535,193,""+MID$(num$,1,1)+" "+MID$(num$,2,1)+" "+MID$(num$,3,1)
  375. RETURN
  376. > PROCEDURE laenge
  377.   zaehler|=0
  378.   COLOR 7
  379.   PBOX 56,184,130,197
  380.   COLOR 6
  381.   TEXT 60,210,lang$
  382.   COLOR 5
  383.   TEXT 59,211,lang$
  384.   PBOX 500,202,570,212
  385.   PBOX 420,202,490,212
  386.   PBOX 340,202,410,212
  387.   PBOX 260,202,330,212
  388.   PBOX 180,202,250,212
  389.   COLOR 6
  390.   TEXT 515,210,"C-120"
  391.   TEXT 440,210,"C-90"
  392.   TEXT 360,210,"C-60"
  393.   TEXT 280,210,"C-30"
  394.   TEXT 200,210,"LEER"
  395.   DO
  396.     MOUSE x&,y&,k|
  397.     IF x&>180 AND y&>202 AND x&<250 AND y&<212 AND k|=1
  398.       @weg
  399.       COLOR 1
  400.     ELSE IF x&>260 AND y&>202 AND x&<330 AND y&<212 AND k|=1
  401.       @weg
  402.       TEXT 69,193,"C - 30"
  403.     ELSE IF x&>340 AND y&>202 AND x&<410 AND y&<212 AND k|=1
  404.       @weg
  405.       TEXT 69,193,"C - 60"
  406.     ELSE IF x&>420 AND y&>202 AND x&<490 AND y&<212 AND k|=1
  407.       @weg
  408.       TEXT 69,193,"C - 90"
  409.     ELSE IF x&>500 AND y&>202 AND x&<570 AND y&<212 AND k|=1
  410.       @weg
  411.       TEXT 65,193,"C - 120"
  412.     ENDIF
  413.     EXIT IF zaehler|=1
  414.   LOOP
  415. RETURN
  416. > PROCEDURE loeschen
  417.   zaehler|=0
  418.   COLOR 6
  419.   TEXT 60,210,loe$
  420.   COLOR 5
  421.   TEXT 59,211,loe$
  422.   @ja_nein
  423.   DO
  424.     MOUSE x&,y&,k|
  425.     IF x&>421 AND y&>202 AND x&<490 AND y&<211 AND k|=1
  426.       @bildneu
  427.       zaehler|=1
  428.     ELSE IF x&>521 AND y&>202 AND x&<570 AND y&<211 AND k|=1
  429.       @weg
  430.     ENDIF
  431.     EXIT IF zaehler|=1
  432.   LOOP
  433.   COLOR 1
  434. RETURN
  435. > PROCEDURE bildneu
  436.   GRAPHMODE 0
  437.   COLOR 1
  438.   PBOX 46,0,594,255
  439.   COLOR 7
  440.   PBOX 48,1,592,254
  441.   COLOR 1
  442.   PBOX 315,1,320,176
  443.   PBOX 315,214,320,254
  444.   DRAW 46,18 TO 594,18
  445.   DRAW 71,0 TO 71,18
  446.   DRAW 343,0 TO 343,18
  447.   FOR d#=20 TO 176 STEP 13
  448.     DRAW 46,d# TO 594,d#
  449.   NEXT d#
  450.   FOR u#=214 TO 240 STEP 13
  451.     DRAW 46,u# TO 594,u#
  452.   NEXT u#
  453.   DRAW 57,4 TO 62,4
  454.   DRAW 56,5 TO 63,5
  455.   DRAW 55,6 TO 64,6
  456.   DRAW 54,10 TO 65,10 TO 65,11 TO 54,11 TO 54,12 TO 65,12
  457.   DRAW 54,7 TO 54,15 TO 55,15 TO 55,7 TO 56,7 TO 56,14
  458.   DRAW 64,7 TO 64,15 TO 65,15 TO 65,7 TO 63,7 TO 63,14
  459.   DRAW 53,14 TO 53,15 TO 52,15
  460.   DRAW 66,14 TO 66,15 TO 67,15
  461.   DRAW 324,4 TO 336,4
  462.   DRAW 326,5 TO 337,5 TO 337,6 TO 334,6
  463.   DRAW 335,7 TO 337,7 TO 337,8 TO 334,8
  464.   DRAW 324,15 TO 336,15
  465.   DRAW 326,14 TO 337,14 TO 337,13 TO 334,13
  466.   DRAW 335,12 TO 337,12 TO 337,11 TO 334,11
  467.   DRAW 326,6 TO 326,13 TO 327,13 TO 327,6 TO 328,6 TO 328,13
  468.   DRAW 329,9 TO 336,9 TO 336,10 TO 329,10
  469.   BOX 55,183,131,198
  470.   BOX 520,183,585,198
  471.   BOX 197,183,438,198
  472. RETURN
  473. > PROCEDURE wie
  474.   DELAY 0.2
  475.   @bildneu
  476.   PRINT CHR$(155);"0;31;47";CHR$(109);
  477.   PRINT AT(8,25);"   Musterdruck --- Musterdruck --- Musterdruck --- Musterdruck    "
  478.   @drucken
  479.   @weg
  480.   @system
  481. RETURN
  482. > PROCEDURE weg
  483.   COLOR 7
  484.   PBOX 50,201,591,212
  485.   zaehler|=1
  486.   COLOR 1
  487. RETURN
  488. > PROCEDURE ja_nein
  489.   PBOX 420,202,490,212
  490.   PBOX 500,202,570,212
  491.   COLOR 6
  492.   TEXT 445,210,"JA"
  493.   TEXT 520,210,"NEIN"
  494. RETURN
  495.